home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / DIALDIR.WMS < prev    next >
Encoding:
Text File  |  1991-03-22  |  9.8 KB  |  355 lines
  1. ;WinComm Dialing Directory
  2.  
  3. ; Open all session files and look for type of 1 only
  4. STOP
  5. CLEAR
  6. rates$=" 1200, 2400, 4800, 9600,19200,38400,"
  7. parity$="n-,o-,e-,m-,s-,"
  8. stop$="1,1.5,2,"
  9. port$="com1,com2,com3,com4,"
  10. emul$="ansi,ansi-bbs,none,vidtex,vt102,vt52,"
  11. connect$="modem,local,"
  12. proto$="cis-B+,kermit,xmodem,xmodem-1k,xmodem-crc,ymodem,ymodem-g,zmodem,"
  13. a$="" c$=""
  14. hd = FOPEN(0,"dialdir.1")
  15. hd1 = FOPEN(0,"dialdir.2")
  16. USERWINDOW(5,0,100,4194304)
  17. if( (hd!=-1) && (hd1!=-1) ) GOTO good
  18.  
  19. enumerate:
  20.    DIALOGBOX 69, 18, 142, 69, 29, "Building Dialing Directory"
  21.       DEFCANCELBUTTON 45, 51, 50, 14, "&Cancel"
  22.       CTEXT 2, 7, 137, 8, "Current Session File:"
  23.       CTEXT 4, 40, 134, 8, "Press cancel to terminate build:"
  24.       VTEXT 39, 22, 64, 9, FNAME$
  25.       GROUPBOX 27, 15, 90, 18, ""
  26.    DEND
  27. i = GETFOCUS?
  28. SHOW(2)
  29. autosize = GETSESSINT(68)
  30. PUTSESSINT(68,0)            ; disable auto sizing
  31. SETFOCUS(i)
  32. hd = FOPEN(4096,"dialdir.1")
  33. hd1 = FOPEN(4096,"dialdir.2")
  34. fname$ = FILEFIND(GETSESSSTR(26)+"\*.wsf",0)
  35. DO
  36.     IF(DIALOG?!=255){
  37.         FCLOSE(hd) FCLOSE(hd1) DESTROYDLG 
  38.         SHOW(3) HALT 
  39.     }
  40.     UPDATEDLG(16)
  41.     OPEN(fname$,"",0)            ; open but dont allow auto connect
  42.     if(GETSESSINT(0)==0){
  43.         GOSUB get_info
  44.         FWRITELN(hd,a$)
  45.         FWRITELN(hd1,c$)
  46.     }
  47.     fname$ = FINDNEXT
  48. UNTIL(NULL(fname$) == 1)
  49. OPEN("tour.wsf","",0)            ; leave tour as last selection
  50. DESTROYDLG
  51. PUTSESSINT(68,autosize)            ; disable auto sizing
  52. good:
  53. SHOW(3)
  54. FCLOSE(hd)
  55. FCLOSE(hd1)
  56.  
  57. start_over:
  58. numport$="Number"
  59. bitsmodem$="Connection"
  60. macroemul$ = "Macro"
  61. var2$="dialdir.1;40 190 255 310 330 340 "
  62. var1$="dial.que"
  63.  
  64.    DIALOGBOX 10, 18, 357, 170, 21, "WinComm Dialing Directory"
  65.       MFLISTBOX 2, 20, 354, 105, VAR2$, VAR1$
  66.       LTEXT 2, 10, 33, 8, "File Name"
  67.       LTEXT 62, 11, 75, 8, "Session Notes"
  68.       VTEXT 192, 10, 48, 9, NUMPORT$
  69.       VTEXT 257, 10, 52, 9, BITSMODEM$
  70.       VTEXT 312, 10, 45, 9, MACROEMUL$
  71.       UPDATEPB 52, 131, 80, 14, "Edit Session..."
  72.       UPDATEPB 148, 130, 80, 14, "Set Dialing Queue..."
  73.       UPDATEPB 240, 130, 80, 14, "Toggle Display"
  74.       UPDATEPB 52, 150, 80, 14, "&Dial Selections"
  75.       PUSHBUTTON 148, 150, 80, 14, "&Rebuild Directory"
  76.       DEFCANCELBUTTON 240, 150, 80, 14, "&Exit"
  77.    DEND
  78. loop:
  79. DO i = DIALOG? UNTIL(i!=255)
  80. if(i==0) HALT
  81. if(i==2) GOTO enumerate
  82. if(i==102){
  83.     if(CMP(var2$,"dialdir.1;40 190 255 310 330 340 ")){
  84.         var2$="dialdir.2;40 190 255 310 330 340 "
  85.         numport$="Port"
  86.         bitsmodem$="Emulation"
  87.         macroemul$ ="Protocol" 
  88.     }
  89.     else{
  90.         var2$="dialdir.1;40 190 255 310 330 340 "
  91.         numport$="Number"
  92.         bitsmodem$="Connection"
  93.         macroemul$ = "Macro"
  94.     }
  95.     UPDATEDLG(255) GOTO loop 
  96. }
  97. if(i==100){
  98.    hs = FOPEN(0,"dial.que")
  99.    a$= FREADLN(hs)
  100.    FCLOSE(hs)
  101.    if(NULL(a$)){
  102.     UPDATEDLG(0) ALARM GOTO loop
  103.    }
  104.    DESTROYDLG
  105.    a$=EXTRACT(CHAR(9),a$,1)+".wsf"
  106.    OPEN(a$,"",0)            ; open but dont allow auto connect
  107.    fname$ = LOWERCASE(a$)
  108.    notes$=GETSESSSTR(0)
  109.    number$=GETSESSSTR(2)
  110.    baud$=EXTRACT(",",rates$,GETSESSINT(4)-1)
  111.    if(GETSESSINT(14)) macro$ = LOWERCASE(GETSESSSTR(7))
  112.    var1=0 var2=0
  113.    if(GETSESSINT(3)) var2=1
  114.    else var1=1
  115.    p$=EXTRACT(",",port$,GETSESSINT(2)+1)
  116.    e$=EXTRACT(",",emul$,GETSESSINT(5)+1)
  117.    pr$=EXTRACT(",",proto$,GETSESSINT(6)+1)
  118.    if(GETSESSINT(14)) macro$ = LOWERCASE(GETSESSSTR(7))
  119.    else macro$=""
  120.  
  121.  
  122.    DIALOGBOX 42, 10, 200, 127, 21, "Session Quick Setup"
  123.       RTEXT 6, 52, 38, 8, "Emulation:"
  124.       COMBOBOX 44, 50, 71, 42, EMUL$, E$
  125.       RTEXT 7, 78, 34, 8, "Port:"
  126.       COMBOBOX 44, 78, 54, 42, PORT$, P$
  127.       RTEXT 1, 66, 41, 8, "Protocol:"
  128.       COMBOBOX 45, 64, 54, 42, PROTO$, PR$
  129.       RTEXT 17, 95, 24, 8, "Baud:"
  130.       COMBOBOX 44, 93, 54, 42, RATES$, BAUD$
  131.       EDIT 6, 22, 189, 12, NOTES$
  132.       VTEXT 80, 3, 74, 9, FNAME$
  133.       LTEXT 6, 13, 36, 8, "Notes"
  134.       LTEXT 7, 39, 29, 8, "Number:"
  135.       EDIT 38, 36, 156, 12, NUMBER$
  136.       PUSHBUTTON 103, 91, 45, 14, "&Ok"
  137.       DEFCANCELBUTTON 130, 109, 45, 14, "&Cancel"
  138.       GROUPBOX 139, 52, 47, 33, "Connection:"
  139.       BEGINGROUP_RADIOBUTTON 143, 62, 38, 9, "Modem", VAR1
  140.       ENDGROUP_RADIOBUTTON 143, 73, 39, 9, "Local", VAR2
  141.       RTEXT 15, 110, 27, 8, "Macro:"
  142.       EDIT 44, 109, 55, 12, MACRO$
  143.       UPDATEPB 152, 91, 45, 14, "&Save As"
  144.    DEND
  145.    loop1:
  146.    DO i = DIALOG? UNTIL(i!=255)
  147.    if(i==2){
  148.     GOSUB put_info
  149.     GOSUB get_info
  150.     GOSUB replace_info
  151.    }
  152.    if(i==100){
  153.     CHGDIR(GETSESSSTR(26))
  154.     i =SAVEASDLG("Save New Session File",fname$)
  155.     if(i==1){
  156.         GOSUB put_info
  157.         GOSUB get_info
  158.         hs=FOPEN(2,"dialdir.1") hs1=FOPEN(2,"dialdir.2")
  159.         FSEEK(hs,0,2) FSEEK(hs1,0,2)
  160.         FWRITELN(hs,a$) FWRITELN(hs1,c$) 
  161.             FCLOSE(hs) FCLOSE(hs1) UPDATEDLG(255) 
  162.     }
  163.     else UPDATEDLG(0)
  164.     GOTO loop1
  165.    }
  166.    GOTO start_over
  167.  
  168. }
  169. if(i==101){
  170.    hs = FOPEN(0,"dial.que") a$= FREADLN(hs) FCLOSE(hs)
  171.    if(NULL(a$)){
  172.     UPDATEDLG(0) ALARM GOTO loop
  173.    }
  174.    DESTROYDLG
  175.    GOTO dial_que
  176. }
  177. if(i==103){
  178.    hs = FOPEN(0,"dial.que") a$= FREADLN(hs) FCLOSE(hs)
  179.    if(NULL(a$)){
  180.     UPDATEDLG(0) ALARM GOTO loop
  181.    }
  182.    PUTSESSINT(71,1)
  183.    PUTSESSSTR(52,"schedule.wmc")
  184.    HALT
  185. }
  186. HALT
  187.  
  188. get_info:
  189.     a$ = LOWERCASE(fname$)+CHAR(9)
  190.     SUBST(".wsf",a$,"",1)
  191.     a$=a$+LOWERCASE(GETSESSSTR(0))+CHAR(9)
  192.     c$=a$                ; include notes and file name
  193.     a$=a$+GETSESSSTR(2)+CHAR(9)
  194.     if(GETSESSINT(3)) a$=a$+"local"+CHAR(9)
  195.     else a$=a$+LOWERCASE(GETSESSSTR(50))+CHAR(9)
  196.     if(GETSESSINT(14)){
  197.         b$ = LOWERCASE(GETSESSSTR(7))+CHAR(9)
  198.         SUBST(".wmc",b$,"",1)
  199.     }
  200.     else b$=CHAR(9)
  201.     a$=a$+b$
  202.     c$=c$+EXTRACT(",",port$,GETSESSINT(2)+1)
  203.     c$=c$+EXTRACT(",",rates$,GETSESSINT(4)-1)+"-"
  204.     c$=c$+strint(GETSESSINT(54))+"-"
  205.     c$=c$+EXTRACT(",",parity$,GETSESSINT(56)+1)
  206.     c$=c$+EXTRACT(",",stop$,GETSESSINT(55)+1)+CHAR(9)
  207.     c$=c$+EXTRACT(",",emul$,GETSESSINT(5)+1)+CHAR(9)
  208.     c$=c$+EXTRACT(",",proto$,GETSESSINT(6)+1)+CHAR(9)
  209. RETURN
  210.  
  211. ;****** Subroutine to replace the selection in a FLISTBOX ***
  212. replace_info:
  213.  
  214.     d$=fname$ SUBST(".wsf",d$,"",1)
  215.         hd=FOPEN(4096,"t1.txt") hd1=FOPEN(4096,"t2.txt")
  216.     hs=FOPEN(2,"dialdir.1") hs1=FOPEN(2,"dialdir.2")
  217.         b$=FREADLN(hs) b1$ = FREADLN(hs1)
  218.         WHILE(NULL(b$) == 0)
  219.         e$ = EXTRACT(CHAR(9),b$,1)
  220.                 IF(CMP(e$,d$) == 0){
  221.             FWRITE(hd,LEN(b$),b$) FWRITE(hd1,LEN(b1$),b1$)
  222.         }
  223.         ELSE{
  224.             FWRITELN(hd,a$) FWRITELN(hd1,c$) 
  225.         }
  226.             b$=FREADLN(hs) b1$ = FREADLN(hs1)
  227.         WEND
  228.         FCLOSE(hs) FCLOSE(hd)
  229.         FCLOSE(hs1) FCLOSE(hd1)
  230.         DELETEFILE("dialdir.1") DELETEFILE("dialdir.2")
  231.         RENAME("t1.txt","dialdir.1") RENAME("t2.txt","dialdir.2")
  232. RETURN
  233.  
  234. ;****** Subroutine to replace the selection in a FLISTBOX ***
  235. put_info:
  236.        PUTSESSSTR(0,notes$)
  237.        PUTSESSSTR(2,number$)
  238.        if(NULL(macro$)) PUTSESSINT(14,1)
  239.     else{
  240.         PUTSESSINT(14,1)
  241.         PUTSESSSTR(7,LOWERCASE(macro$))
  242.     }
  243.        if(var2) PUTSESSINT(3,1)
  244.        else PUTSESSINT(3,0)
  245.     i = 0 DO  i = i+1 UNTIL(CMP(p$,EXTRACT(",",port$,i)))
  246.     PUTSESSINT(2,i-1)
  247.     i = 0 DO  i = i+1 UNTIL(CMP(baud$,EXTRACT(",",rates$,i)))
  248.     PUTSESSINT(4,i+1)
  249.     i = 0 DO  i = i+1 UNTIL(CMP(e$,EXTRACT(",",emul$,i)))
  250.     PUTSESSINT(5,i-1)
  251.     i = 0 DO  i = i+1 UNTIL(CMP(pr$,EXTRACT(",",proto$,i)))
  252.     PUTSESSINT(6,i-1)
  253.     SAVEAS(fname$)
  254. RETURN
  255.  
  256.  
  257. ;************** seting dialing que *******************************
  258.  
  259. dial_que:
  260.    hs = FOPEN(0,"dial.que") hd=FOPEN(4096,"t1.txt")
  261.    b$=FREADLN(hs) i=1 d$=MID(STRTIME(TIME?),5,12)
  262.    WHILE(NULL(b$) == 0)
  263.     if(i<10) a$= " "+STRINT(i)+CHAR(9)
  264.     else a$= STRINT(i)+CHAR(9)
  265.     c$=EXTRACT(CHAR(9),b$,1)+CHAR(9)+EXTRACT(CHAR(9),b$,2)+CHAR(9)
  266.     c$ = c$+d$+CHAR(9)
  267.     FWRITE(hd,LEN(a$),a$)
  268.       FWRITELN(hd,c$)
  269.     i = i+1
  270.         b$=FREADLN(hs)
  271.    WEND
  272.    FCLOSE(hs) FCLOSE(hd)
  273.    DELETEFILE("dial.que") 
  274.    RENAME("t1.txt","dial.que")
  275.    var2$="dial.que;15 60 210 275 "
  276.    order$="" time$=""
  277.  
  278.    DIALOGBOX 3, 20, 271, 162, 21, "WinComm Dialing Queue"
  279.       FLISTBOX 3, 3, 265, 101, VAR2$, VAR1$
  280.       PUSHBUTTON 5, 145, 80, 14, "&Dial Queue"
  281.       DEFCANCELBUTTON 185, 145, 80, 14, "&Exit"
  282.       UPDATEPB 96, 145, 80, 14, "&Order Queue"
  283.       EDIT 44, 130, 32, 12, ORDER$
  284.       LTEXT 3, 132, 38, 8, "New Order:"
  285.       RTEXT 113, 131, 38, 8, "Start Time:"
  286.       EDIT 155, 129, 111, 12, TIME$
  287.       CTEXT 0, 100, 270, 26, "To set a different dialing sequence enter a new order number and press &Order Queue.  The start time loads the session file on or after the specified time.  To specify a new start time edit the start time and press &Oder Queue."
  288.    DEND
  289.    ENABLECTL(100,0)
  290.    loop2:
  291.    DO i = DIALOG? UNTIL(i!=255)
  292.    if(i==200){
  293.     ENABLECTL(100,1)
  294.     order$=EXTRACT(CHAR(9),var1$,1)
  295.     time$=EXTRACT(CHAR(9),var1$,4)
  296.     jj=VALINT(order$)
  297.     UPDATEDLG(8) GOTO loop2
  298.    }
  299.    if(i==100){
  300.     if(NULL(order$)==1){
  301.         UPDATEDLG(0) GOTO loop2
  302.     }
  303.     j=valint(order$) i=1
  304.         hd=FOPEN(4096,"t1.txt") hs=FOPEN(2,"dial.que")
  305.         b$=FREADLN(hs)
  306.     if(j>jj) m=j+1
  307.     else m=j
  308.         WHILE( (NULL(b$)==0) && (i<m))
  309.         if(i<jj) FWRITE(hd,LEN(b$),b$)
  310.         else if(i>jj){
  311.             if(i<10) c$= " "+STRINT(i)+CHAR(9)
  312.             else c$= STRINT(i)+CHAR(9)
  313.             ii=i-1
  314.             if(ii<10) d$= " "+STRINT(ii)+CHAR(9)
  315.             else d$= STRINT(ii)+CHAR(9)
  316.             SUBST(c$,b$,d$,1)
  317.             FWRITE(hd,LEN(b$),b$)
  318.         }
  319.         i=i+1
  320.             b$=FREADLN(hs)
  321.         WEND
  322.     i=j
  323.     if(i<10) a$= " "+STRINT(i)+CHAR(9)
  324.     else a$= STRINT(i)+CHAR(9)
  325.     c$=a$+EXTRACT(CHAR(9),var1$,2)+CHAR(9)+EXTRACT(CHAR(9),var1$,3)+CHAR(9)
  326.     c$ = c$+time$+CHAR(9)
  327.       FWRITELN(hd,c$)
  328.  
  329.         WHILE( (NULL(b$)==0))
  330.         if(i==jj){
  331.             i=i+1 GOTO skip
  332.         }
  333.         if(i<10) c$= " "+STRINT(i)+CHAR(9)
  334.         else c$= STRINT(i)+CHAR(9)
  335.         i=i+1
  336.         if(i<10) d$= " "+STRINT(i)+CHAR(9)
  337.         else d$= STRINT(i)+CHAR(9)
  338.         if(i<=jj) SUBST(c$,b$,d$,1)
  339.         FWRITE(hd,LEN(b$),b$)
  340. skip:            b$=FREADLN(hs)
  341.         WEND
  342.         FCLOSE(hs) FCLOSE(hd)
  343.         DELETEFILE("dial.que") 
  344.         RENAME("t1.txt","dial.que")
  345.     order$="" time$=""
  346.     ENABLECTL(100,0)
  347.     UPDATEDLG(255) GOTO loop2
  348.    }
  349.    if(i==0) GOTO start_over
  350.    PUTSESSINT(71,1)
  351.    PUTSESSSTR(52,"schedul1.wmc")
  352.  
  353. END
  354.  
  355.